home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PRIM / DOS-FNS.ELC < prev    next >
Text File  |  1993-03-28  |  4KB  |  41 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:37:47 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/dos-fns.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┬─┼Mê╞╟Mê╚╔Mê╩╦Mê╠═Mç" [((ax . 0) (bx . 1) (cx . 2) (dx . 3) (si . 4) (di . 5) (cflag . 6) (flags . 7)) register-name-by-word-alist ((al 0 . 0) (ah 0 . 1) (bl 1 . 0) (bh 1 . 1) (cl 2 . 0) (ch 2 . 1) (dl 3 . 0) (dh 3 . 1)) register-name-by-byte-alist make-register #[nil "└┴┬\"ç" [make-vector 8 0] 3] register-value #[(regs name) "└    \n\"A«à└     \"Aë:½Ö @H A╟U½å╚ª¬ä╚Ñ)¬è º½à H¬ü╔)ç" [assoc name register-name-by-word-alist register-name-by-byte-alist where regs tem 0 256 nil] 4] set-register-value #[(regs name value) "º½σ┴V½α┬ \"A«à┬ \"Aë:½╜╟ª@Hë    ╟ª\n    ╟Ñ A┴U½Å@ ╟_\\Iê¬ì@╟_ \\Iê+¬Éº½ï╠ªIê)ç" [value 0 assoc name register-name-by-word-alist register-name-by-byte-alist where 256 regs tem l h 65536] 5] intdos #[(regs) "└┴\n\"ç" [int86 33 regs] 3] bdos #[(func dx al) "º¡╜    º¡╣\nº¡╡├ ─╟╚#ê╟┬\n#ê╟┴    #ê╔!ê╩╦\"╠U¼ä═¬å╩╬\"*ç" [func dx al make-register nil result regs set-register-value ah intdos register-value cflag 0 -1 ax] 4]] 2)
  14. (fset 'disk-free-space #[(&optional drive) "└ ┬    ├─#ê┬    ┼º«ü╟#ê╚    !ê╔    ╩\"╔    ╦\"╔    ╠\"E)ç" [make-register regs set-register-value ah 54 dl drive 0 intdos register-value bx cx ax] 5 "\
  15. Return a list of free space information of current drive.
  16. List elements are:
  17.  0. Number of unused sectors.
  18.  1. Number of bytes per sector.
  19.  2. Number of sectors per cluster."])
  20. (fset 'disk-total-space #[(&optional drive) "└ ┬    ├─#ê┬    ┼º«ü╟#ê╚    !ê╔    ╩\"╔    ╦\"╔    ╠\"E)ç" [make-register regs set-register-value ah 54 dl drive 0 intdos register-value dx cx ax] 5 "\
  21. Return a list of free space information of current drive.
  22. List elements are:
  23.  0. Number of total sectors.
  24.  1. Number of bytes per sector.
  25.  2. Number of sectors per cluster."])
  26. (fset 'set-keyclick #[(mode) "┴=¡¥┬ ─ ┼╞#ê─ ╟½â╔¬ü╩#ê╦╠ \"ê)═ç" [dos-machine-type j3100 make-register regs set-register-value ah 242 al mode 1 0 int86 22 nil] 4 "\
  27. Set/Reset key click sound.
  28. If first arg non-nil turn key click sound on, and nil turn off."])
  29. (fset 'get-cursor-mode #[nil "└ëë ┼=¡╤╞ ╚╔╩#ê╚╦╠#ê╚═╬#ê╧╨\"ê╤╦\"╥U)╞ ╚╔╙#ê╚╘╥#ê╧╨\"ê╤╒\"╤╓\")\n     E+ç" [nil end-line start-line blink-mode dos-machine-type j3100 make-register regs set-register-value ah 130 al 4 bl 255 int86 16 register-value 0 3 bh ch cl] 4 "\
  30. Return a list of current cursor mode information.
  31. List elements are:
  32.  0. Start line.
  33.  1. End Line.
  34.  2. Blink mode.
  35.  
  36. If this function can't get the info, returns nil."])
  37. (fset 'set-cursor-mode #[(start-line end-line &optional blink-mode) "º¡╟    º¡├\n├=¡╛─ ╞╟╚#ê╞╔╩#ê╞╦ ½â═¬ü╬#ê╧╨\"ê)─ ╞╟╬#ê╞╤#ê╞╥    #ê╧╨\"ê)╙ç" [start-line end-line dos-machine-type j3100 make-register regs set-register-value ah 130 al 4 bl blink-mode 0 1 int86 16 ch cl nil] 4 "\
  38. Set cursor shape for DOS Machine, specified from STARTPOS to ENDPOS.
  39. Optional third arg non-nil means cursor blinks."])
  40. (byte-code "└┴Mê┬├Mç" [set-screen-mode #[(rows) "º¡Ü    ┬=¡ò├U½å─┼!ê¬ë╞U½ä─╟!ê╚ç" [rows dos-machine-type j3100 25 send-string-to-terminal ">3l" 20 ">3h" nil] 2] get-screen-mode #[nil "┴=¡Ñ┬─ ╞╟╚#ê╔╩\"ê╦╠\") ═U½â╬¬å ╧U¡ü╨)ç" [dos-machine-type j3100 nil screen-mode make-register regs set-register-value ah 15 int86 16 register-value al 116 25 100 20] 4]] 2)
  41.